extern int dgetc2_(integer *n, doublereal *a, integer *lda, integer *ipiv, integer *jpiv, integer *info);
/*:ref: dlamch_ 7 2 13 124 */
/*:ref: dlabad_ 14 2 7 7 */
/*:ref: dswap_ 14 5 4 7 4 7 4 */
/*:ref: dger_ 14 9 4 4 7 7 4 7 4 7 4 */
